home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Simpsons Cartoon Studio™ Demo / Simpsons / Support / dlogdata / open.Dxr / 00001_main.ls next >
Encoding:
Text File  |  1996-08-16  |  1001 b   |  40 lines
  1. global theOpenDialog, theScrollBar, toonDataFileList, openDialogBox
  2.  
  3. on startMovie
  4.   set the modal of openDialogBox to 1
  5.   set the exitLock to 1
  6.   set theOpenDialog to birth(script "openDialogBox parent")
  7.   set theScrollBar to birth(script "scrollbar parent")
  8.   init(theOpenDialog)
  9. end
  10.  
  11. on hiliteButton whichSprite
  12.   set hilit to 1
  13.   set theCastNum to the castNum of sprite whichSprite
  14.   set the castNum of sprite whichSprite to theCastNum + 1
  15.   updateStage()
  16.   repeat while the mouseDown
  17.     if rollOver(whichSprite) then
  18.       set the castNum of sprite whichSprite to theCastNum + 1
  19.       set hilit to 1
  20.     else
  21.       set the castNum of sprite whichSprite to theCastNum
  22.       set hilit to 0
  23.     end if
  24.     updateStage()
  25.   end repeat
  26.   set the castNum of sprite whichSprite to theCastNum
  27.   updateStage()
  28.   if hilit then
  29.     return 1
  30.   else
  31.     return 0
  32.   end if
  33. end
  34.  
  35. on puppetSprites START, finish, state
  36.   repeat with theSprite = START to finish
  37.     puppetSprite(theSprite, state)
  38.   end repeat
  39. end
  40.